fs:string(f(z)); p:3; q:4; m:rectform(exp(2*%pi*%i*p/q)); iLength:100000; s:GiveListOfCriticalPoints(f(z)); multiplicities; length(s); Orbits:[]; for i:1 thru...